#!/usr/bin/perl -w

while(<<>>) {
    if(/(\S)\1/){
        print ;
    }
}
